|
CoCreate Programmierung : makro
karl-josef_wernet am 13.09.2010 um 20:53 Uhr (0)
Quick and DirtyDEFINE Evolvente LOCAL X LOCAL Y LOCAL M LOCAL Z LOCAL Rw LOCAL Rb LOCAL Alpha LOCAL T LOCAL C LET Z 20 LET C 0.2 LET M 1 LET Alpha 20 LET Rw 10 LET T 0 LET Y 0 LET Y 0 UNITS RAD READ NUMBER Modul DEFAULT M M READ NUMBER Zaehnezahl DEFAULT Z Z READ NUMBER Zahnfussfaktor DEFAULT C C LET Rw ((Z*M)/(2*PI)) LET Rkopf (Rw+M) LET Rfuss ((Rw -1+C)*M) LET Rb (Rw*COS (Alpha)) CIRCLE CENTER 0,0 Rw Rkopf Rfuss END END BSPLINE REPEAT LET X (((Rb*SIN (T*PI)) - (Rb*T*PI*CO ...
|
| In das Form CoCreate Programmierung wechseln |
|
CoCreate Programmierung : makro
caballonegro am 13.09.2010 um 16:35 Uhr (0)
Hallo,ich hab Probleme ein Macro eines anderen Systems zu verstehen bzw. das in ME10-Makrosprache zu konvertierenDas Makro soll eine Evolvent zeichnenIch blick das mit dem RADian daran nicht und wie ich das mit ME10 nun mache?Meine Units sind MM und DEGCode:DEFINE Evolvente LOCAL Xlocal y LOCAL M LOCAL Z LOCAL Rw LOCAL Rb LOCAL Alpha LOCAL T LET Z 20 LET M 1 LET Alpha 20 LET Rw 10 LET T 0let x 0let y 0 READ Modul DEFAULT M M READ Zähnezahl DEFAULT Z Z LET Rw (Z*M/2) LET Rb (Rw*COS (Alpha)) CIRCLE CENTER 0, ...
|
| In das Form CoCreate Programmierung wechseln |
 |
CoCreate Programmierung : makro
caballonegro am 26.11.2010 um 02:32 Uhr (0)
Habe mal ein wenig am macro modifiziertCode:DEFINE Evolvente LOCAL X LOCAL Y LOCAL M LOCAL Z LOCAL Rw LOCAL Rb LOCAL Alpha LOCAL T LOCAL C LET Z 28 LET C 0.25 LET M 3.5 LET Alpha 20 LET Rw 10 LET T 0 LET Y 0 LET Y 0 UNITS RAD READ NUMBER Modul DEFAULT M M READ NUMBER Zaehnezahl DEFAULT Z Z READ NUMBER Zahnfussfaktor DEFAULT C C LET Rw (Z*M/2) LET Rkopf (Rw+M) LET Rfuss (Rw - M - C*M) LET Rb (Rw*COS (Alpha)) CIRCLE CENTER 0,0 Rw Rkopf Rfuss END END BSPLINE REPEAT LET X (((Rb ...
|
| In das Form CoCreate Programmierung wechseln |
|
CoCreate Programmierung : Schnittpunkt v. 2 unendl. Hilfslinien
Patrick Weber am 04.11.2008 um 20:44 Uhr (0)
Verdammt! Ich habe den Fehler gefunden... Auf meiner Skizze ist die erste Hilfslinie (L1) eine Vertikale. Die Arbeitsebene ist aber um den Winkel Alpha eingedreht, wodurch die Linie nicht mehr vertikal ist. Also LISP angepasst und funzt nun. @highway45:Hatte ich mir schon vorher angeschaut, brachte mir aber keine Erleuchtung. @holt:Willst du auf einen Fangbereich anspielen oder auf eine mögliche Punktüberdeckung? Letztere wird durch meine Variablendefinition im Dialog nicht möglich sein.------- ...
|
| In das Form CoCreate Programmierung wechseln |
|
CoCreate Programmierung : Schnittpunkt v. 2 unendl. Hilfslinien
Patrick Weber am 05.11.2008 um 13:12 Uhr (0)
Ja, hast schon Recht. Wären ja beides Vertikale bei x=0. Genau das war auch mein Fehler. Ich hätte nicht :vertical nehmen dürfen, sondern hätte die Hilfslinie im Winkel setzen müssen. Code: (setf PN (make-gpnt2d :x 0 :y 0)) ; Nullpunkt AE (setf PU (make-gpnt2d :x 0 :y (* -1 R))) ; Hilfspunkt - legt Durchmesser des Tunnelangusses fest (setf P1 (make-gpnt2d :x (- 0 0.1) :y 0)) ; Punkt für Vertikale + Offset links (geometry_mode :real) (c_line_inf :angle P1 (sd-deg-to-rad (- 90 ALPHA))) ; Verti ...
|
| In das Form CoCreate Programmierung wechseln |
